﻿Public Class Temo

    Public Sub tick(ByVal k)

        If RadioButton1.Checked = True Then
            k = (k * 2) * 0.1
            Label2.Text = "KM/H"
            TextBox2.Text = k * 10
        Else
            Label2.Text = "KNOTEN"
            TextBox2.Text = k
        End If







    End Sub

    Private Sub Temo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    End Sub
End Class